home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / intuiextend16.lha / bonus / makelib / MakeLib_example4.amos / MakeLib_example4.amosSourceCode
AMOS Source Code  |  1980-01-04  |  349b  |  21 lines
  1. Print Fast Free+Chip Free
  2. MAP= Extension_17_00B0(14,0)
  3. If MAP
  4.    Poke$ MAP,"123456789012"
  5.    MEM[MAP]
  6.    MAP= Extension_17_0220(MAP,9)
  7.    MEM[MAP]
  8. End If 
  9.  Extension_17_00D0 
  10. Print Fast Free+Chip Free
  11. Repeat 
  12. Until Mouse Key<>0
  13. Edit 
  14.  
  15. Procedure MEM[MAP]
  16. Print "SIZE:";Leek(MAP-4)-12
  17. For A=0 To 12
  18.    Print Chr$(Peek(MAP+A));
  19. Next 
  20.    Print 
  21. End Proc